# FIELD EXPERIMENT

# Absenteeism

# conative attitudes  ------------------------------------------------------

el$absenteeism_action <- (el$lc1 + el$pta + el$bring_up + el$assemble)/4
el$absenteeism_action_ml <- (el$lc1_ml + el$pta_ml + el$bring_up_ml + el$assemble_ml)/4
el$absenteeism_action_total <- (el$lc1 + el$pta + el$bring_up + el$assemble +
																	el$lc1_ml + el$pta_ml + el$bring_up_ml + el$assemble_ml)/8

ml$absenteeism_action <- (ml$lc1 + ml$pta + ml$bring_up + ml$assemble)/4

# Asses Index -------------------------------------------------------------

el$asset_index <- with(el,tv_ml + radio_ml + chair_ml + sofa_ml +  (1-mud_wall_ml) + motor_cycle_ml)/6 

# Violence against women
el$vaw_action <- (el$involve_lc1 + el$involve_nabakyala + el$involve_parents + el$report_police)/4

# Abortion
el$abo_action <- (el$involved + el$vht + el$see_doctor + el$advise_councelling + el$compassion)/5
